home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abb.d64 / menu v2.1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  75 lines
  1. 0 PRINTCHR$(142):POKE53280,0:POKE53281,0:PRINT"[147][153] [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":PRINT"[206][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][206][180]":PRINT"[165] [152][213][192][192][192][192][192][192][192][192][192][192][201] [153][167][166][180]":PRINT"[165][152] [194] [156][195][178][178][195]     [152][194] [153][170][166][180]":PRINT"[180] [152][194]  [156][194][194]      [152][194] [153][167][166][180]":PRINT"[180] [152][194]  [156][194][194]      [152][194] [153][167][166][180]    [159]BY[153]":PRINT"[180] [152][194] [158]SOFTWARE [152][194] [153][167][166][180]    JIM TUVERSON[153]
  2. 8 [153]"SGN PRINT#PEEK  CLRPEEKPEEK      PRINT#PEEK PRINTTHENSPC(SGN    DEFWEST HILLS, CA.PRINT":[153]"SGN PRINT#PEEK CLRMID$(null)PEEK OPEN'88 PRINT#PEEK PRINTTHENSPC(SGN":[153]"SGN PRINT#MID$LENLENLENLENLENLENLENLENLENLEN(null) PRINT+SPC(SGN      (null)LENLENLENLENLENLENLENRIGHT$PRINT":[153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQRSPC(SGN      PEEKCENTRALPEEKPRINT":[153]"FN  .   .   .   PRINTTHENSPC(SGN      PEEK CONT(null)(null)(null)(null)(null) PEEKPRINT":[153]"FN  (null)   (null)   (null)  :PRINTTHENSPC(SGN      PEEKCONT (null)(null)(null)(null)(null) PEEKPRINT
  3. 14 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][206]       [194][150] [215][215][215][215][215] [194][153]":PRINT"                        [194][150] [215][215][215][215][215] [194][153]":PRINT"                        [194] [155][209][209][209][209][209] [194][153]":PRINT"                        [194]CONTROL[194][153]
  4. 18 [153]"CLR     MENU/      WAIT        MID$LENLENLENLENLENLENLEN(null)":[153]"SYS    UTILITY     WAIT":A$[178]"ANOTHER GREATTUVERSONPRINTPROGRAM                      *":[141]22
  5. 22 [153]"";:[129]G[178]23[164]23:[153]"";:[130]:X[178]1
  6. 23 G$[178][202](A$,X,1):[139]G$[179][177]"*"[167][153][163]38);G$;"ON":X[178]X[170]1:[129]C[178]1[164]88:[130]
  7. 24 [139]G$[179][177]"*"[167][153]""[199](20)"ON":[137]23
  8. 25 [137]26
  9. 26 [153]"     <TO CONTINUE PRESS ANY KEY>":[151]198,0:[146]198,1:[161]A$:[139]A$[178]"*"[167]18
  10. 30 [153]"LOADOPEN";"        MENU/UTILITIES PROGRAM         WAITSYS":[134]NA$(50):[153]"        ...GETTING DIRECTORY...":[153]"DEF    ORIGINAL PROGRAM: DEAN WILKINSON":[153]"     MODIFIED BY: JIM TUVERSON, JR.":[151]53280,0:[151]53281,0:[159]2,8,15:[137]61
  11. 37 [159]1,8,0,"$0":N[178]1:X[178]0:[158]65508:[161]#1,A$,B$
  12. 40 [161]#1,A$,B$:R[178]0:[161]#1,A$,B$:C[178]0:[158]65508:[139]A$[179][177]""[167]C[178][198](A$)
  13. 45 [139]B$[179][177]""[167]C[178]C[170][198](B$)[172]256
  14. 46 [139][202]([196](C),2)[178]"0"[167]R[178]1:[137]55
  15. 47 X[178]X[170]1:X1%[178]X[173]2:[158]65508
  16. 49 [161]#1,B$:[139]ST[179][177]0[167]59
  17. 50 [139]B$[179][177][199](34)[167]49
  18. 51 [161]#1,B$:[139]B$[179][177][199](34)[167]NA$(X)[178]NA$(X)[170]B$:[158]65508:[137]51
  19. 52 [158]65508
  20. 53 [161]#1,B$:[139]B$[178][199](32)[167]53
  21. 54 C$[178]"
  22. 55 C$=C$+B$:GET#1,B$:IFB$<>""THEN55
  23. 56 IFR=1THEN40
  24. 57 SYS65508:IFST=0THEN40
  25. 59 CLOSE1:GOTO61
  26. 61 IFN=0THEN37
  27. 62 GOSUB125
  28. 63 PRINT"";:PRINT"      L[146]-LOAD PROGRAM":PRINT"      C[146]-COPY PROGRAM":PRINT"      R[146]-RENAME PROGRAM":PRINT"      D[146]-DELETE PROGRAM":PRINT"      I[146]-INITIATE DISK FORMAT":PRINT"      V[146]-VALIDATE DISK":PRINT"      Q[146]-QUIT
  29. 71 [161]A$:[139]A$[178]""[167]71
  30. 72 [139]A$[178]"L"[167]82
  31. 73 [139]A$[178]"C"[167]90
  32. 74 [139]A$[178]"R"[167]98
  33. 75 [139]A$[178]"D"[167]105
  34. 76 [139]A$[178]"I"[167]115
  35. 77 [139]A$[178]"V"[167]120
  36. 78 [139]A$[178]"INPUT"[175]X[171]1[177]24[167]136
  37. 79 [139]A$[178]"DIM"[167][141]125:[137]63
  38. 80 [139]A$[178]"Q"[167][153]"ON      Q-QUITWAIT":[153]"LOAD":[128]
  39. 81 [137]71
  40. 82 [153]"ONONONONONONON      L-LOAD PROGRAMWAIT":[153]:[153]"CHOICE?WAIT";
  41. 84 [133]CH$:[139]CH$[178]""[167]84
  42. 85 CH[178][197](CH$):[139]CH[179]1[176]CH[177]X[171]1[167]84
  43. 86 [153]CH:[153]:[153]"LOAD";[199](34);NA$(CH);[199](34);",8,1":[153]"ONONONON":[151]631,13:[151]632,[198]("R"):[151]633,[198]("U"):[151]634,[198]("N"):[151]635,13:[151]198,5:[128]
  44. 90 [153]"ONONONONONON      C-COPY PROGRAMWAIT":[153]:[153]"CHOICE?WAIT";
  45. 92 [133]CH$:[139]CH$[178]""[167]92
  46. 93 CH[178][197](CH$):[139]CH[179]1[176]CH[177]X[171]1[167]92
  47. 94 [153]:[133]"NEW NAME";NM$:[139]NM$[178]""[167]94
  48. 96 [159]15,8,15:CC$[178]"CO:"[170]NM$[170]"=:"[170]NA$(CH):[152]15,CC$:[160]15:[138]
  49. 98 [153]"ONONONONON      R-RENAME PROGRAMWAIT":[153]:[153]"CHOICE?WAIT";
  50. 100 [133]CH$:[139]CH$[178]""[167]100
  51. 101 CH[178][197](CH$):[139]CH[179]1[176]CH[177]X[171]1[167]100
  52. 102 [153]CH:[153]:[153]"NEW NAME FOR";" ";NA$(CH);:[133]NN$:[139]NN$[178]""[167]102
  53. 103 [159]15,8,15:CC$[178]"RO:"[170]NN$[170]"="[170]NA$(CH):[152]15,CC$:[160]15:[138]
  54. 105 [153]"ONONONON      D-DELETE PROGRAMWAIT":[153]:[153]"CHOICE?WAIT";
  55. 107 [133]CH$:[139]CH$[178]""[167]107
  56. 108 CH[178][197](CH$):[139]CH[179]1[176]CH[177]X[171]1[167]107
  57. 109 [153]CH:[153]:[153]"ARE YOU SURE?
  58. 110 GETSU$:IFSU$=""THEN110
  59. 111 IFSU$<>"Y"THENGOTO61
  60. 112 PRINT"OK[146]":OPEN15,8,15:CC$="SO:"+NA$(CH):PRINT#15,CC$:CLOSE15:RUN
  61. 115 PRINT"[145][145][145]      I-INITIATE DISK CONTACT[146]":PRINT:PRINT"OK[146]":OPEN15,8,15,"I":CLOSE15:RUN
  62. 120 PRINT"[145][145]      V-VALIDATE DISK[146]":PRINT:PRINT"OK[146]":OPEN15,8,15,"V":CLOSE15:RUN
  63. 125 PRINT"[147][129]";"        MENU/UTILITIES PROGRAM          [146][158]":K=0:X1=X-1:IFX1<24THENFORI=1TOINT(X/2)
  64. 128 IFX1>=24THENFORI=1TO12
  65. 129 K=K+1:PRINTK;NA$(K);:POKE211,20:K=K+1:IFNA$(K)<>""THENPRINTK;NA$(K)
  66. 132 NEXT:IFNA$(K)=""THENPRINT
  67. 134 IFX1>24THENPRINT"[159]         [F 1] FOR NEXT PAGE
  68. 135 [142]
  69. 136 K[178]24:X1[178]X[171]1:[153]"LOADFOR";"        MENU/UTILITIES PROGRAM          WAITSYS":[139]X1[179]48[167][129]I[178]1[164][181]((X[171]24)[173]2)
  70. 139 [139]X1[177][178]48[167][129]I[178]1[164]10
  71. 140 K[178]K[170]1:[153]K;NA$(K);:[151]211,20:K[178]K[170]1:[139]NA$(K)[179][177]""[167][153]K;NA$(K)
  72. 143 [130]:[139]NA$(K)[178]""[167][153]
  73. 145 [139]X1[177]48[167][153]"TOO MANY FILES.  MAX IS 48.":[144]
  74. 146 [153]"OPEN          [F 3] FOR FIRST PAGE":[137]63
  75.